﻿Imports MeoTom.Core

Partial Public Class _Default1
    Inherits UI.Page
    Private ReadOnly _util2 As New Utilities.Common()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Response.Buffer = True
        Response.BufferOutput = True
        Dim previousPage As String = ""
        If Request.QueryString.ToString = vbNullString Then
            previousPage = Server.UrlEncode(Request.ServerVariables("PATH_INFO"))
        Else
            previousPage = Server.UrlEncode(Request.ServerVariables("PATH_INFO") & "?" & Request.QueryString.ToString())
        End If
        _util2.ValidateLogin(previousPage)
    End Sub

End Class